0 REM (null)USRRUNHCLOSE
LET>zRIGHT$,(null) (null)USRRUNNOTh+L(null)(null)Z
3 REM SYS 2054, ROW, COLUMN TO USE
4 FORI=2054TO2078
5 READA:POKE I,A: T=T+A
6 NEXT:GOTO10
8 DATA 32,241,183,138,72,160,1,136,177,122,201,44,208
9 DATA 5,32,241,183,138,168,104,170,24,76,240,255
10 POKE53281,0:CRSR=2054:PRINTCHR$(147)
20 SYSCRSR,4,12:PRINTCHR$(5)"GOOD AFTERNOON
30 [141]200:[158] CRSR,19,6:[153][199](156)"YOU HAVE CONTROL!
40 GOSUB200:SYS CRSR,8:PRINTCHR$(159)"MESSAGES CAN APPEAR...
50 [141]200:[158] CRSR,12,20:[153][199](31)"ANYWHERE YOU WANT!
60 GOSUB200
70 FORI=1TO100
80 RO=RND(1)*25:CO=RND(1)*39
100 SYSCRSR,RO,CO:POKE646,IAND15:PRINT"*";:NEXT:GOTO60010
200 SYSCRSR,23,11
210 PRINTCHR$(18)" PRESS ANY KEY... "
220 WAIT198,1:GETA$:RETURN
60000 :
60010 PRINT"[147] WOULD YOU LIKE TO:"
60020 PRINT"     1.  SEE THE DEMO AGAIN"
60022 PRINT"     2.  RETURN TO LOADSTAR"
60024 PRINT"     3.  QUIT TO BASIC"
60026 PRINT"     WHICH? ";
60030 :
60040 POKE198,0:WAIT198,1:GETA$:IFA$<>"1"ANDA$<>"2"ANDA$<>"3"THEN60040
60050 :
60052 PRINTA$
60060 IFA$="1"THEN10
60070 IFA$="2"THEN63000
60080 PRINT"ARE YOU SURE?":POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"THEN60000
60082 END
60090 :
63000 :
63010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
63020 IFER<>63THENEND
63030 LOAD"HELLO CONNECT",8